home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
EDUCAMES
/
AMDLOTTO.LZH
/
CS.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-08-08
|
1KB
|
30 lines
10 'Created by Steven C. Hudgik
20 'COLOR SCREEN - A game for the very young
30 'Copyright 1987 - Steven C. Hudgik
40 'Distributed as shareware - you are granted the right to copy and
50 'distribute this software. It may not be included as a part of
60 'any other software or modified in any way.
70 '
80 SCREEN 0
90 CLS:LOCATE 5,5:PRINT"C O L O R T H E S C R E E N":LOCATE 7,5:PRINT"Push any key to change screen colors..."
100 LOCATE 9,5:PRINT"Push ESC during the 'music' to end this game... ";
110 C=7:D=0:E=5
120 H$=INPUT$(1):COLOR C,D,E:CLS
130 T=RND
140 IF T<.1 THEN T=T+T ELSE 160
150 GOTO 140
160 M=(1-T)*10:SOUND T*1000,M*2:SOUND T*700,M
170 SOUND T*2000,M/2:SOUND T*2500,M/3:SOUND T*3000,M/4
180 SOUND T*4000,M/5
190 SOUND T*6000,M/6
200 FOR I=1 TO 100:H$=INKEY$:IF LEN(H$)=0 THEN 210 ELSE IF ASC(H$)=27 THEN 280
210 NEXT I
220 C=C+1:D=D+1:E=E+1
230 IF C>31 THEN C=0
240 IF D>7 THEN D=0
250 IF E>15 THEN E=0
260 LOCATE 12,40:PRINT H$
270 GOTO 120
280 CLS:COLOR 7,0,0:PRINT"ESC has been pushed. To end game push":PRINT"the letter X... ";:H$=INPUT$(1):IF H$="x" OR H$="X" THEN CLS ELSE 90
290 SYSTEM